home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / -archivi / -recent2 / amicad_2.00.lha / AmiCAD / ARexx / Caract鑽e.AmiCAD < prev    next >
Text File  |  1999-02-06  |  928b  |  26 lines
  1. /* Écriture d'un caractère spécial */
  2.  
  3. options results     /* indispensable pour récupérer le résultat des macros */
  4.  
  5. signal on error     /* pour l'interception des erreurs */
  6. signal on syntax
  7.  
  8. 'L__="Caractère à écrire"+CHR(10)+"Amplificateur"+CHR(10)+"Collecteur ouvert"+CHR(10)+"Supérieur ou égal"+CHR(10)+"Flèche vers la droite"+CHR(10)+"Postponed"+CHR(10)+"Front montant"+CHR(10)+"Hystérésis"+CHR(10)+"Trois états"+CHR(10)+"Générateur"'
  9. 'L__=L__+CHR(10)+"Flèche vers la gauche"+CHR(10)+"Signal analogique"+CHR(10)+"Signe ohm"+CHR(10)+"Lettre alpha"+CHR(10)+"Lettre tau"+CHR(10)+"Lettre teta"+CHR(10)+"Pull up"+CHR(10)+"Lettre Sigma"'
  10. 'SELECT(L__)'
  11. c=result
  12. if c <=0 then exit
  13. 'WRITE(CHR('c+127'),0,0)'
  14.  
  15. exit
  16.  
  17. /* Traitement des erreurs, interruption du programme */
  18. syntax:
  19. erreur=RC
  20. 'MESSAGE("Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  21. exit
  22.  
  23. error:
  24. 'MESSAGE("Erreur en ligne 'SIGL'")'
  25. exit
  26.